﻿'Imports EVOLTA.Seguridad.Bl.Be
'Imports EVOLTA.Seguridad.Bl.Bc
Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class seguridad_Default
    Inherits System.Web.UI.Page

    Private _idUsuario As Int32 = 0
    'Private _intentos As Int32 = 0

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.CacheControl = "no-cache"
        Response.AddHeader("Pragma", "no-cache")
        Response.Expires = -1
        '***********************************************************'
        txtfecha.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
        Session("sEVOLTA") = Nothing
    End Sub
    'Protected Sub btnConectarse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConectarse.Click
    '    Dim empresa As Boolean = False
    '    For x As Int32 = 0 To ConfigurationManager.ConnectionStrings.Count - 1
    '        If txtEmpresa.Text.ToUpper.Equals(ConfigurationManager.ConnectionStrings(x).Name) Then
    '            empresa = True
    '        End If
    '    Next
    '    If empresa = True AndAlso txtEmpresa.Text.Length > 0 AndAlso txtUsuario.Text.Length > 0 AndAlso txtContraseña.Text.Length > 0 Then
    '        Try
    '            Dim mensaje As String = Nothing
    '            'Dim idUsuario As Int32 = 0
    '            'Dim intentos As Int32 = Rusuario.comprobarUsuario(txtEmpresa.Text.Trim.ToUpper, txtUsuario.Text.Trim.ToUpper, txtContraseña.Text.Trim.ToUpper, _idUsuario, mensaje)
    '            _intentos = Rusuario.comprobarUsuario(txtEmpresa.Text.Trim.ToUpper, txtUsuario.Text.Trim.ToUpper, txtContraseña.Text.Trim.ToUpper, _idUsuario, mensaje)
    '            If intentos > 0 Then
    '                '    'Response.Redirect("~/seguridad/menu.aspx?idUsuario=" & idUsuario & "&usuario=" & txtUsuario.Text.Trim.ToUpper & "&empresa=" & txtEmpresa.Text)                    
    '                '    ''Server.Transfer("menu.aspx?idUsuario=" & idUsuario & "&usuario=" & txtUsuario.Text.Trim.ToUpper & "&empresa=" & txtEmpresa.Text, True)                    
    '                'Response.Redirect("menu.aspx")
    '                Server.Transfer("menu.aspx")
    '                'Me.btnConectarse.PostBackUrl = "~/seguridad/menu.aspx"
    '            Else
    '                limpiar(mensaje)
    '            End If
    '        Catch ex As Exception
    '            limpiar("")
    '            'Response.Redirect("~/seguridad/login.aspx")
    '            'Server.Transfer("~/seguridad/login.aspx")
    '        End Try
    '    Else
    '        limpiar("")
    '    End If
    'End Sub
    'Private Sub limpiar(ByVal mensaje As String)
    '    lblError.Text = mensaje
    '    lblError.Visible = True
    '    txtEmpresa.Text = ""
    '    txtUsuario.Text = ""
    '    txtContraseña.Text = ""
    '    upMensaje.Update()
    'End Sub
    Public ReadOnly Property empresa() As String
        Get
            Return txtEmpresa.Text.Trim
        End Get
    End Property
    Public ReadOnly Property usuario() As String
        Get
            Return txtUsuario.Text.Trim
        End Get
    End Property
    Public ReadOnly Property contraseña() As String
        Get
            Return txtContraseña.Text.Trim
        End Get
    End Property
    Public Property mensaje() As String
        Get
            Return lblError.Text.Trim
        End Get
        Set(ByVal value As String)
            lblError.Text = value
        End Set
    End Property
    'Public ReadOnly Property idUsuario() As Int32
    '    Get
    '        Return _idUsuario
    '    End Get
    'End Property
    'Public ReadOnly Property intentos() As Int32
    '    Get
    '        Return _intentos
    '    End Get
    'End Property

End Class
